﻿
Imports System.IO

Public Class a
    Inherits xhtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.common(key) OrElse _
                attributesCollection.accesskey(key) OrElse _
                attributesCollection.charset(key) OrElse _
                attributesCollection.href(key) OrElse _
                attributesCollection.hreflang(key) OrElse _
                attributesCollection.rel(key) OrElse _
                attributesCollection.rev(key) OrElse _
                attributesCollection.tabindex(key) OrElse _
                attributesCollection.type(key) OrElse _
                attributesCollection.coords(key) OrElse _
                attributesCollection.shape(key) OrElse _
                attributesCollection.onblur(key) OrElse _
                attributesCollection.onfocus(key) OrElse _
                attributesCollection.target(key) OrElse _
                attributesCollection.name(key)
    End Function

    'should not be one line control
    Protected Overrides Function isonelineControl() As Boolean
        Return False
    End Function

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff, "a")
    End Sub
End Class